library(data.table)
Registered S3 method overwritten by 'data.table':
  method           from
  print.data.table     
data.table 1.14.8 using 1 threads (see ?getDTthreads).  Latest news: r-datatable.com
**********
This installation of data.table has not detected OpenMP support. It should still work but in single-threaded mode.
This is a Mac. Please read https://mac.r-project.org/openmp/. Please engage with Apple and ask them for support. Check r-datatable.com for updates, and our Mac instructions here: https://github.com/Rdatatable/data.table/wiki/Installation. After several years of many reports of installation problems on Mac, it's time to gingerly point out that there have been no similar problems on Windows or Linux.
**********
library(tidyr)
# Data of Wave 5


WV5_data <- readRDS("/Users/cristinacandido/Documents/Github/risk_wvs/data/WVS/F00007944-WV5_Data_R_v20180912.rds")
# Convert WV5_data-object in data.frame 
WV5_data_df <- as.data.frame(WV5_data)

# show first five columns
head(WV5_data_df[, 1:5])
# Data of Wave 6
WV6_data <- load("/Users/cristinacandido/Documents/Github/risk_wvs/data/WVS/WV6_Data_R_v20201117.rdata")
WV6_data <- WV6_Data_R_v20201117
print(WV6_data)
# Convert WV6_data-object in data.frame 
WV6_data_df <- as.data.frame(WV6_data)

# show first five columns
head(WV6_data_df[, 1:5])

WV6_data_df
print(WV5_data_df)
print(WV6_data_df)

library(dplyr)

WV5_data <- WV5_data_df %>%
  rename(risk = V86, sex = V235, age = V237)
WV5_data



WV5_data <- WV5_data %>%
  select(risk, sex, age)
WV5_data
NA
NA
NA
p2 = ggplot(WV5_data_df, aes(risk_and_adventure,sex, color = as.factor(country)))+
  geom_point()+
  geom_smooth(method = "lm", se = TRUE)
p2 
LS0tCnRpdGxlOiAiUiBOb3RlYm9vayIKb3V0cHV0OiBodG1sX25vdGVib29rCi0tLQoKYGBge3J9CmxpYnJhcnkoZGF0YS50YWJsZSkKbGlicmFyeSh0aWR5cikKYGBgCgpgYGB7cn0KIyBEYXRhIG9mIFdhdmUgNQoKCldWNV9kYXRhIDwtIHJlYWRSRFMoIi9Vc2Vycy9jcmlzdGluYWNhbmRpZG8vRG9jdW1lbnRzL0dpdGh1Yi9yaXNrX3d2cy9kYXRhL1dWUy9GMDAwMDc5NDQtV1Y1X0RhdGFfUl92MjAxODA5MTIucmRzIikKCgoKIyBDb252ZXJ0IFdWNV9kYXRhLW9iamVjdCBpbiBkYXRhLmZyYW1lIApXVjVfZGF0YV9kZiA8LSBhcy5kYXRhLmZyYW1lKFdWNV9kYXRhKQoKIyBzaG93IGZpcnN0IGZpdmUgY29sdW1ucwpoZWFkKFdWNV9kYXRhX2RmWywgMTo1XSkKYGBgCgpgYGB7cn0KIyBEYXRhIG9mIFdhdmUgNgpXVjZfZGF0YSA8LSBsb2FkKCIvVXNlcnMvY3Jpc3RpbmFjYW5kaWRvL0RvY3VtZW50cy9HaXRodWIvcmlza193dnMvZGF0YS9XVlMvV1Y2X0RhdGFfUl92MjAyMDExMTcucmRhdGEiKQpXVjZfZGF0YSA8LSBXVjZfRGF0YV9SX3YyMDIwMTExNwpwcmludChXVjZfZGF0YSkKYGBgCgoKYGBge3J9CiMgQ29udmVydCBXVjZfZGF0YS1vYmplY3QgaW4gZGF0YS5mcmFtZSAKV1Y2X2RhdGFfZGYgPC0gYXMuZGF0YS5mcmFtZShXVjZfZGF0YSkKCiMgc2hvdyBmaXJzdCBmaXZlIGNvbHVtbnMKaGVhZChXVjZfZGF0YV9kZlssIDE6NV0pCgpXVjZfZGF0YV9kZgpgYGAKCmBgYHtyfQpwcmludChXVjVfZGF0YV9kZikKcHJpbnQoV1Y2X2RhdGFfZGYpCmBgYApgYGB7cn0KCmxpYnJhcnkoZHBseXIpCgpXVjVfZGF0YSA8LSBXVjVfZGF0YV9kZiAlPiUKICByZW5hbWUocmlza19hbmRfYWR2ZW50dXJlID0gVjg2LCBzZXggPSBWMjM1LCBhZ2UgPSBWMjM3LCBjb3VudHJ5ID0gVjIsIGZhbWlseV9pbXBvcnRhbnQgPSBWNCwgZnJpZW5kc19pbXBvcnRhbnQgPSBWNSwgbGVpc3VyZV90aW1lID0gVjYsIGhhcHBpbmVzcyA9IFYxMCwgc3ViamVjdGl2ZV9oZWFsdGggPSBWMTEsIHNhdGlzZmFjdGlvbl93aXRoX2xpZmUgPSBWMjIsIG1hcml0YWxfc3RhdHVzID0gVjU1LCBjaGlsZHJlbiA9IFY1NiwgZW1wbG95bWVudCA9IFYyNDEsIGluY29tZSA9IFYyNTNDUykKV1Y1X2RhdGEKCgoKV1Y1X2RhdGEgPC0gV1Y1X2RhdGEgJT4lCiAgc2VsZWN0KHJpc2tfYW5kX2FkdmVudHVyZSwgc2V4LCBhZ2UsIGNvdW50cnksIGZhbWlseV9pbXBvcnRhbnQsIGZyaWVuZHNfaW1wb3J0YW50LCBsZWlzdXJlX3RpbWUsIGhhcHBpbmVzcywgc3ViamVjdGl2ZV9oZWFsdGgsIHNhdGlzZmFjdGlvbl93aXRoX2xpZmUsIG1hcml0YWxfc3RhdHVzLCBjaGlsZHJlbiwgZW1wbG95bWVudCwgaW5jb21lKQpXVjVfZGF0YQoKCgoKYGBgCgpgYGB7cn0KV1Y1X2RhdGFfZGYgPSBzdWJzZXQoV1Y1X2RhdGEsIHJpc2tfYW5kX2FkdmVudHVyZSA+IDAgJiBzZXggPiAwICYgYWdlID4wICYgZW1wbG95bWVudCA+IDAgJiBtYXJpdGFsX3N0YXR1cyA+IDAgJiBjaGlsZHJlbiA+PSAwKQoKbGlicmFyeShnZ3Bsb3QyKQoKcCA9IGdncGxvdChXVjVfZGF0YV9kZiwgYWVzKGFzLmZhY3RvcihzZXgpLHJpc2tfYW5kX2FkdmVudHVyZSkpKwogIGdlb21fYm94cGxvdCgpKwogIHRoZW1lX2J3KCkKcAoKCmBgYAoKCmBgYHtyfQpwMiA9IGdncGxvdChXVjVfZGF0YV9kZiwgYWVzKHJpc2tfYW5kX2FkdmVudHVyZSxzZXgsIGNvbG9yID0gYXMuZmFjdG9yKGNvdW50cnkpKSkrCiAgZ2VvbV9wb2ludCgpKwogIGdlb21fc21vb3RoKG1ldGhvZCA9ICJsbSIsIHNlID0gVFJVRSkKcDIgCmBgYApgYGB7cn0KCmBgYAoKCgoKCgoKCg==